home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
programming
/
other
/
flexcat
/
lib
/
e32e.sd
< prev
next >
Wrap
Text File
|
1999-06-14
|
2KB
|
117 lines
##stringtype E
/****************************************************************
This file was created automatically by `%fv'
from "%f0".
Do not edit by hand!
****************************************************************/
OPT MODULE
OPT REG=5
->*****
->** External modules
->*****
MODULE 'locale' , 'libraries/locale'
MODULE 'utility/tagitem'
->*****
->** Object definitions
->*****
EXPORT OBJECT fc_type PRIVATE
id:LONG
str:PTR TO CHAR
ENDOBJECT
EXPORT OBJECT catalog_%b PUBLIC
%i :PTR TO fc_type
ENDOBJECT
->*****
->** Global variables
->*****
DEF cat_%b:PTR TO catalog
->*****
->** Creation procedure for fc_type object
->*****
PROC create(id,str:PTR TO CHAR) OF fc_type
self.id:=id
self.str:=str
ENDPROC
->*****
->** Procedure which returns the correct string according to the catalog
->*****
PROC getstr() OF fc_type IS
IF cat_%b THEN GetCatalogStr(cat_%b,self.id,self.str) ELSE self.str
PROC newcreate(id,stri)
DEF fct:PTR TO fc_type
ENDPROC NEW fct.create(id,stri)
->*****
->** Creation procedure for catalog_%b object
->*****
PROC create() OF catalog_%b
cat_%b:=NIL
self.%i:=newcreate(%d,{str_%e})
ENDPROC
PROC getCatalog() OF catalog_%b IS cat_%b
->*****
->** Opening catalog procedure (exported)
->*****
PROC open(loc=NIL:PTR TO locale,language=NIL:PTR TO CHAR ) OF catalog_%b
DEF tag,
tagarg
self.close()
IF localebase AND (cat_%b=NIL)
IF language
tag:=OC_LANGUAGE
tagarg:=language
ELSE
tag:=TAG_IGNORE
ENDIF
cat_%b:=OpenCatalogA(loc,'%b.catalog',
[OC_BUILTINLANGUAGE, %l,
tag, tagarg,
OC_VERSION, %v,
TAG_DONE,0])
ENDIF
ENDPROC
->*****
->** Closing catalog procedure
->*****
PROC close() OF catalog_%b
IF cat_%b
CloseCatalog(cat_%b)
cat_%b:=NIL
ENDIF
ENDPROC
str_%e: CHAR %s,0
/****************************************************************
End of the automatically created part!
****************************************************************/